home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / phmacro.zip / STD1.OUT < prev    next >
Text File  |  1993-01-04  |  1KB  |  59 lines
  1. fn:  nam=<f> parms=<a> def=<f( x * (a))>
  2.                            <fffffffffff>
  3. obj: nam=<z> def=<z[0]>
  4.                  <zzzz>
  5. obj: nam=<x> def=<2>
  6.                  <x>
  7. 0: f(y+1) + f(f(z)) %
  8.  :
  9. 1: y+1
  10.  :
  11. 0R: f(_)
  12.   :
  13. 0R: f( x * (a))
  14.   : fffffffffff
  15. 0R: f( x * (y+1))
  16.   : fffffffffffff
  17. 0: f( x * (y+1)) + f(f(z)) %
  18.  : fffffffffffff
  19. 0: F( x * (y+1)) + f(f(z)) %
  20.  : fffffffffffff
  21. hide-set #0 = {fx}
  22. 0: F( 2 * (y+1)) + f(f(z)) %
  23.  : fff0fffffffff
  24. 1: f(z)
  25.  :
  26. 1.1: z
  27.    :
  28. 1.1: z[0]
  29.    : zzzz
  30. 1.1: Z[0]
  31.    : zzzz
  32. 1R: f(_)
  33.   :
  34. 1R: f( x * (a))
  35.   : fffffffffff
  36. hide-set #1 = {fz}
  37. 1R: f( x * (Z[0]))
  38.   : ffffffff1111ff
  39. 1: f( x * (Z[0]))
  40.  : ffffffff1111ff
  41. 1: F( x * (Z[0]))
  42.  : ffffffff1111ff
  43. 1: F( 2 * (Z[0]))
  44.  : fff0ffff1111ff
  45. 0R: f(_)
  46.   :
  47. 0R: f( x * (a))
  48.   : fffffffffff
  49. 0R: f( x * (F( 2 * (Z[0]))))
  50.   : fffffffffff0ffff1111ffff
  51. 0: F( 2 * (y+1)) + f( x * (F( 2 * (Z[0])))) %
  52.  : fff0fffffffff   fffffffffff0ffff1111ffff
  53. 0: F( 2 * (y+1)) + F( x * (F( 2 * (Z[0])))) %
  54.  : fff0fffffffff   fffffffffff0ffff1111ffff
  55. 0: F( 2 * (y+1)) + F( 2 * (F( 2 * (Z[0])))) %
  56.  : fff0fffffffff   fff0fffffff0ffff1111ffff
  57. 0: f( 2 * (y+1)) + f( 2 * (f( 2 * (z[0])))) %
  58.  :
  59.